﻿Public Class BandButton
    Inherits Button
    Private bti As BandTagInfo

    Public Sub New(ByVal caption As String, ByVal bti As BandTagInfo)
        Me.Text = caption
        Me.FlatStyle = Windows.Forms.FlatStyle.Standard
        Me.Visible = True
        Me.bti = bti
        AddHandler Click, AddressOf SelectBand

    End Sub

    Private Sub SelectBand(ByVal sender As Object, ByVal e As EventArgs)
        bti.outlookBar.SelectBand(bti.index)
    End Sub
End Class
